home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / T / THE MOVIE STACK 1.1.cpt / THE MOVIE STACK 1.1 / background_2731.txt < prev    next >
Text File  |  1988-01-11  |  14KB  |  627 lines
  1. -- background: 2731 from stack: in.1
  2. -- bmap block id: 2115
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9. on openBackground
  10.   hide field "type"
  11.  
  12.   pass openBackground
  13. end openBackground
  14.  
  15.  
  16.  
  17. on openCard
  18.  
  19.   ClearTypButtons
  20.  
  21.  
  22.   if field "type" = "COMEDY" then
  23.     set hilite of background button "COMEDY" to true
  24.     set textStyle of background button "COMEDY" to Bold
  25.   else if field "type" = "DRAMA" then
  26.     set hilite of background button "DRAMA" to true
  27.     set textStyle of background button "DRAMA" to Bold
  28.   else if field "type" = "ADVENTURE" then
  29.     set hilite of background button "ADVENTURE" to true
  30.     set textStyle of background button "ADVENTURE" to Bold
  31.   else if field "type" = "HORROR" then
  32.     set hilite of background button "HORROR" to true
  33.     set textStyle of background button "HORROR" to Bold
  34.   else if field "type" = "CHILDREN" then
  35.     set hilite of background button "CHILDREN" to true
  36.     set textStyle of background button "CHILDREN" to Bold
  37.   END IF
  38.  
  39.   openStack
  40.  
  41.   pass openCard
  42. end openCard
  43.  
  44.  
  45.  
  46. on ClearTypButtons
  47.   set hilite    of background button "COMEDY"    to false
  48.   set hilite    of background button "DRAMA" to false
  49.   set hilite    of background button "ADVENTURE"      to false
  50.   set hilite    of background button "HORROR"        to false
  51.   set hilite    of background button "CHILDREN"         to false
  52.  
  53.   set textStyle of background button "COMEDY"    to plain
  54.   set textStyle of background button "DRAMA" to plain
  55.   set textStyle of background button "ADVENTURE"      to plain
  56.   set textStyle of background button "HORROR"        to plain
  57.   set textStyle of background button "CHILDREN"         to plain
  58.  
  59. end ClearTypButtons
  60.  
  61.  
  62.  
  63. -- part 8 (button)
  64. -- low flags: 00
  65. -- high flags: 0000
  66. -- rect: left=91 top=296 right=319 bottom=116
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 1013 / 1013
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Next
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   go to next card
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 9 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=17 top=296 right=319 bottom=43
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 1014 / 1014
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Prev
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   go to prev card
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 16 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=15 top=27 right=65 bottom=53
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 21576 / 21576
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: MOVIE STACK
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   go to stack "THE MOVIE STACK 1.1"
  116. end mouseUp
  117.  
  118.  
  119.  
  120.  
  121. -- part 17 (button)
  122. -- low flags: 00
  123. -- high flags: 2000
  124. -- rect: left=463 top=27 right=48 bottom=490
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 21700 / 21700
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Go Home
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   go home
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 19 (field)
  141. -- low flags: 00
  142. -- high flags: 0004
  143. -- rect: left=62 top=89 right=115 bottom=387
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 33
  148. -- text size: 14
  149. -- style flags: 0
  150. -- line height: 21
  151. -- part name: TITLE
  152.  
  153.  
  154. -- part 20 (field)
  155. -- low flags: 00
  156. -- high flags: 0004
  157. -- rect: left=63 top=118 right=141 bottom=146
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 0
  161. -- font id: 33
  162. -- text size: 14
  163. -- style flags: 0
  164. -- line height: 18
  165. -- part name: DATE
  166.  
  167.  
  168. -- part 21 (field)
  169. -- low flags: 00
  170. -- high flags: 0007
  171. -- rect: left=234 top=137 right=212 bottom=485
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 34
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: CREDITS & INFO
  180.  
  181.  
  182. -- part 32 (field)
  183. -- low flags: 00
  184. -- high flags: 0007
  185. -- rect: left=123 top=235 right=320 bottom=485
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 34
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: REVIEW
  194.  
  195.  
  196. -- part 34 (field)
  197. -- low flags: 00
  198. -- high flags: 0004
  199. -- rect: left=66 top=189 right=209 bottom=230
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 0
  203. -- font id: 3
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: THEATRE
  208.  
  209.  
  210. -- part 35 (button)
  211. -- low flags: 00
  212. -- high flags: 0000
  213. -- rect: left=58 top=27 right=61 bottom=97
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 20186 / 20186
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: 
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   answer "Sort all cards of this stack according to:" with "MOVIE" or "THEATRE" or "DATE"
  225.   if it is "MOVIE NAME"
  226.   then sort by first word of first line of field "TITLE"
  227. else if it is "THEATRE"
  228. then sort by FIRST word of first line of field "THEATRE"
  229. else if it is "DATE"
  230. then sort by datetime of first line of field "DATE"
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 45 (field)
  236. -- low flags: 00
  237. -- high flags: 0004
  238. -- rect: left=18 top=257 right=291 bottom=117
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 14
  243. -- text size: 24
  244. -- style flags: 256
  245. -- line height: 32
  246. -- part name: SCORE
  247.  
  248.  
  249. -- part 46 (field)
  250. -- low flags: 00
  251. -- high flags: 0004
  252. -- rect: left=415 top=95 right=134 bottom=489
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 15
  257. -- text size: 24
  258. -- style flags: 256
  259. -- line height: 32
  260. -- part name: RATING
  261.  
  262.  
  263. -- part 48 (field)
  264. -- low flags: 00
  265. -- high flags: 0004
  266. -- rect: left=108 top=147 right=167 bottom=144
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 3
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: ON TAPE?
  275.  
  276.  
  277. -- part 49 (button)
  278. -- low flags: 00
  279. -- high flags: 8006
  280. -- rect: left=12 top=70 right=84 bottom=88
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: COMEDY
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   put "COMEDY" into field "type"
  292.   ClearTypButtons
  293.   set hilite of background button "COMEDY" to true
  294.   set textStyle of background button "COMEDY" to Bold
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 50 (button)
  300. -- low flags: 00
  301. -- high flags: 8006
  302. -- rect: left=87 top=70 right=84 bottom=157
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: DRAMA
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   put "DRAMA" into field "type"
  314.   ClearTypButtons
  315.   set hilite of background button "DRAMA" to true
  316.   set textStyle of background button "DRAMA" to Bold
  317. end mouseUp
  318.  
  319.  
  320.  
  321. -- part 51 (button)
  322. -- low flags: 00
  323. -- high flags: C006
  324. -- rect: left=156 top=70 right=84 bottom=255
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 256
  331. -- line height: 16
  332. -- part name: ADVENTURE
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   put "ADVENTURE" into field "type"
  336.   ClearTypButtons
  337.   set hilite of background button "ADVENTURE" to true
  338.   set textStyle of background button "ADVENTURE" to Bold
  339. end mouseUp
  340.  
  341.  
  342.  
  343. -- part 52 (button)
  344. -- low flags: 00
  345. -- high flags: 8006
  346. -- rect: left=254 top=70 right=84 bottom=331
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: HORROR
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   put "HORROR" into field "type"
  358.   ClearTypButtons
  359.   set hilite of background button "HORROR" to true
  360.   set textStyle of background button "HORROR" to Bold
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part 53 (button)
  366. -- low flags: 00
  367. -- high flags: 8006
  368. -- rect: left=330 top=70 right=84 bottom=420
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: CHILDREN
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   put "CHILDREN" into field "type"
  380.   ClearTypButtons
  381.   set hilite of background button "CHILDREN" to true
  382.   set textStyle of background button "CHILDREN" to Bold
  383. end mouseUp
  384.  
  385.  
  386.  
  387. -- part 54 (field)
  388. -- low flags: 80
  389. -- high flags: 0000
  390. -- rect: left=126 top=40 right=52 bottom=138
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 0
  394. -- font id: 3
  395. -- text size: 12
  396. -- style flags: 0
  397. -- line height: 16
  398. -- part name: TYPE
  399.  
  400.  
  401. -- part 55 (button)
  402. -- low flags: 00
  403. -- high flags: 0001
  404. -- rect: left=115 top=30 right=64 bottom=153
  405. -- title width / last selected line: 0
  406. -- icon id / first selected line: 0 / 0
  407. -- text alignment: 1
  408. -- font id: 0
  409. -- text size: 12
  410. -- style flags: 0
  411. -- line height: 16
  412. -- part name: New Button
  413.  
  414.  
  415. -- part 56 (button)
  416. -- low flags: 00
  417. -- high flags: 2000
  418. -- rect: left=370 top=26 right=64 bottom=416
  419. -- title width / last selected line: 0
  420. -- icon id / first selected line: 21060 / 21060
  421. -- text alignment: 1
  422. -- font id: 0
  423. -- text size: 12
  424. -- style flags: 0
  425. -- line height: 16
  426. -- part name: Find
  427. ----- HyperTalk script -----
  428. on mouseUp
  429.   global key
  430.   ask "Enter word or name you're looking for:" with key
  431.   if it is not empty then
  432.     go to next card
  433.     find it
  434.     put it into key
  435.   end if
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part 57 (button)
  441. -- low flags: 00
  442. -- high flags: 2000
  443. -- rect: left=418 top=29 right=59 bottom=458
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 32670 / 32670
  446. -- text alignment: 1
  447. -- font id: 0
  448. -- text size: 12
  449. -- style flags: 0
  450. -- line height: 16
  451. -- part name: New Button
  452. ----- HyperTalk script -----
  453. on mouseUp
  454.   visual effect dissolve very fast to card
  455.   show all cards
  456. end mouseUp
  457.  
  458.  
  459.  
  460. -- part 58 (button)
  461. -- low flags: 00
  462. -- high flags: 0000
  463. -- rect: left=51 top=295 right=319 bottom=81
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 1009 / 1009
  466. -- text alignment: 1
  467. -- font id: 0
  468. -- text size: 12
  469. -- style flags: 0
  470. -- line height: 16
  471. -- part name: MUSIC
  472. ----- HyperTalk script -----
  473. on mouseUp
  474.   play harpsichord faster E G B D F E G B D F C D C D E F G
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 59 (field)
  480. -- low flags: 81
  481. -- high flags: 0004
  482. -- rect: left=15 top=29 right=321 bottom=488
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 34
  487. -- text size: 14
  488. -- style flags: 0
  489. -- line height: 18
  490. -- part name: top
  491.  
  492.  
  493. -- part 61 (field)
  494. -- low flags: 81
  495. -- high flags: 0004
  496. -- rect: left=18 top=32 right=316 bottom=482
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 0
  500. -- font id: 0
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: BOTTOM
  505.  
  506.  
  507. -- part 62 (button)
  508. -- low flags: 80
  509. -- high flags: 8004
  510. -- rect: left=204 top=286 right=308 bottom=304
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 0
  515. -- text size: 12
  516. -- style flags: 0
  517. -- line height: 16
  518. -- part name: GO BACK
  519. ----- HyperTalk script -----
  520. on mouseUp
  521.   play boing faster b g e
  522.   Hide field "BOTTOM"
  523.   hide BKGND button "GO BACK"
  524.   SHOW BKGND BUTTON "MORE"
  525.   SHOW BKGND FIELD "top"
  526.   SHOW BKGND FIELD "ME"
  527.   hide BKGND button "ONWARD TO STACK!"
  528. end mouseUp
  529.  
  530.  
  531.  
  532. -- part 63 (button)
  533. -- low flags: 80
  534. -- high flags: 8004
  535. -- rect: left=203 top=287 right=309 bottom=303
  536. -- title width / last selected line: 0
  537. -- icon id / first selected line: 0 / 0
  538. -- text alignment: 1
  539. -- font id: 0
  540. -- text size: 12
  541. -- style flags: 0
  542. -- line height: 16
  543. -- part name: MORE
  544. ----- HyperTalk script -----
  545. on mouseUp
  546.   play boing faster b g a
  547.   show BKGND BUTTON "GO BACK"
  548.   show field "BOTTOM"
  549.   HIDE BKGND BUTTON "MORE"
  550.   hide bkgnd field "me"
  551.   show bkgnd button "ONWARD TO STACK!"
  552. end mouseUp
  553.  
  554.  
  555.  
  556. -- part 64 (button)
  557. -- low flags: 00
  558. -- high flags: 8003
  559. -- rect: left=171 top=35 right=58 bottom=326
  560. -- title width / last selected line: 0
  561. -- icon id / first selected line: 0 / 0
  562. -- text alignment: 1
  563. -- font id: 0
  564. -- text size: 12
  565. -- style flags: 0
  566. -- line height: 16
  567. -- part name: THE MOVIE STACK
  568. ----- HyperTalk script -----
  569. on mouseUp
  570.   play boing e
  571.   SHOW BKGND FIELD "top"
  572.   HIDE BKGND FIELD "BOTTOM"
  573.   SHOW BKGND BUTTON "MORE"
  574.   SHOW BKGND FIELD "top"
  575.  
  576.   SHOW BKGND BUTTON "GO BACK"
  577.   SHOW BKGND FIELD "ME"
  578.  
  579.   hide bkgnd button "THE MOVIE STACK"
  580.   hide bkgnd button "ONWARD TO STACK!"
  581. end mouseUp
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588. -- part 65 (button)
  589. -- low flags: 80
  590. -- high flags: 8003
  591. -- rect: left=331 top=284 right=306 bottom=463
  592. -- title width / last selected line: 0
  593. -- icon id / first selected line: 0 / 0
  594. -- text alignment: 1
  595. -- font id: 0
  596. -- text size: 12
  597. -- style flags: 0
  598. -- line height: 16
  599. -- part name: ONWARD TO STACK!
  600. ----- HyperTalk script -----
  601. on mouseUp
  602.   play boing faster E G B
  603.   hide BKGND BUTTON "MORE"
  604.   hide BKGND BUTTON "GO BACK"
  605.   hide BKGND FIELD "top"
  606.   hide BKGND FIELD "BOTTOM"
  607.   SHOW bkgnd button "THE MOVIE STACK"
  608.   HIDE BKGND BUTTON "ONWARD TO STACK!"
  609.   hide BKGND FIELD "ME"
  610.  
  611. end mouseUp
  612.  
  613.  
  614.  
  615. -- part 68 (field)
  616. -- low flags: 81
  617. -- high flags: 0004
  618. -- rect: left=171 top=200 right=284 bottom=331
  619. -- title width / last selected line: 0
  620. -- icon id / first selected line: 0 / 0
  621. -- text alignment: 1
  622. -- font id: 198
  623. -- text size: 12
  624. -- style flags: 0
  625. -- line height: 16
  626. -- part name: me
  627.